home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Die Speccy' 97
/
Die Speccy' 97.iso
/
amiga_system
/
the_aminet
/
util
/
misc
/
ftransd_2_1a.lha
/
FTransD_2.1a
/
amigaguide.library
/
FTransD_2.1
/
ARexx-Scripts
/
FTBlock.ced
next >
Wrap
Text File
|
1995-09-28
|
3KB
|
82 lines
/* $VER: FTBlock.ced 1.0 (28.09.95)
*
* FTrans-CygnusEd ARexx-Script (c) Copyright 1995 by Rainer Hess
*
* ▄bersetzt einen markierten Block in eine andere Sprache.
*
* -------------------------------------------------------------
* WICHTIG: In Zeile 20 den richtigen Pfad fⁿr FTrans angeben!
* z.B. WORK:FTrans/FTrans
* -------------------------------------------------------------
*/
cr='0A'x
FTRANSPATH = 'RUN WORK:FTrans/FTrans'
blockIn = 'T:blockIn'
blockOut = 'T:blockOut'
options results
STATUS 69 /* Abfrage ob ein Block markiert ist */
if (result= -1) then do /* Ist ein Block markiert? */
OKAY1 "Es mu▀ zuerst ein Block markiert werden!" /* Kein markierter Block vorhanden */
exit /* Programm beenden */
end /* Weiter im Programm */
STATUS 82 /* Ist die Datei editierbar? */
if (result = 0) then do
OKAY2 "Datei ist nicht editierbar! Soll auf " || cr || "'Datei editierbar' umschaltet werden?"
if result = 0 then exit 0
EDITABLE FILE
end
STATUS 11 /* STATUS LAYOUT */ /* Layout Abfragen */
if (result = 0) then do /* Mit Layout hin-und-her schalten gibts Probleme */
LAYOUT /* Ist Layout ausgeschaltet?, Wenn ja, dann Layout einschalten */
on = 1 /* damit auch vertikale Bl÷cke korrekt ⁿbersetzt werden */
end
CUT BLOCK /* L÷sche den Original-Block */
SAVE BLOCK TO FILE blockOut 1 /* Speichere Block in eine Hilfsdatei */
/*----------------------------------------------------*/
start = show("P", "FTRANS.1") /* LΣuft FTrans schon? */
if (Start = 0) then do
address command FTRANSPATH /* Wenn FTRans nicht lΣuft, FTrans starten. */
address command WaitForPort FTRANS.1 /* Warte bis FTrans gestartet ist */
end
address 'FTRANS.1' /* ARexx-Port von FTrans aktivieren */
LockGUI /* Eingaben ⁿber die GUI sperren */
VORSCHLAG
old_vorschlag = result /* alten Zustand merken */
AUTOLERNEN
old_autolernen = result /* alten Zustand merken */
VORSCHLAG OFF /* Ausschalten */
AUTOLERNEN OFF /* Ausschalten */
FTText blockOut blockIn /* Block zum ⁿbersetzen ⁿbergeben */
VORSCHLAG old_vorschlag /* alten Zustand wieder herstellen */
AUTOLERNEN old_autolernen /* alten Zustand wieder herstellen */
UnlockGUI /* GUI wieder freigeben */
/*----------------------------------------------------*/
address "rexx_ced" /* ARexx-Port von CygnusEd */
INCLUDE FILE blockIn /* ▄bersetzten Block einfⁿgen */
if( on = 1 ) then do /* Layout war eingeschaltet, */
layout /* dann wieder aktivieren */
end
address command "delete >NIL:" blockIn blockOut /* Hilfsdateien wieder l÷schen */
exit 0